Mission to McDonaldLand/Mission To McDonaldLand.iso/calnz.dxr/00002_Script_2

Text File | 1998-10-25 | 946b | 39 lines

on Preparemovie
  global Screen1,CakeLayer
  global objInstance,Nuke,handcursor

  set handcursor = [the number of member "hand",the number of member "handmask"]

  --Screen1 ..4 = four screens making up the world
  --returnTo = Contains Screen to goto if program is
  --   returning from one of the games, Void otherwise
  --   should be in format "ScreenX" where x = 1 to 4

  set objInstance = VOID
  --assignChannels
  set screen1Chans = []
  repeat with i = 56 to 101
    append(Screen1Chans,i)
  end repeat
  set the actorlist = []
  --inialise screen objects
  set Screen1 = birth(script "ObjectHandlers",Screen1Chans)
  set screen1Chans = []
  repeat with i = 5 to 54
    append(Screen1Chans,i)
  end repeat
  set CakeLayer = birth(script "ObjectHandlers",Screen1Chans)
  set nuke = birth(script "nuker")


  initScreen1()


end


on quitGame
  killall(screen1)
  killall(screen2)
end